home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 1 / PC World Interactive 1 - Nisan 1997.iso / nostalji / bbs / modem / qlmain.arj / COMPUSRV.SRP < prev    next >
Text File  |  1993-07-20  |  798b  |  64 lines
  1. ;
  2. ; Script for connecting to CompuServe
  3. ;
  4. CLS
  5. Echo "Please Wait . . ."
  6. Echo "Logging on CompuServe"
  7. localecho "off"
  8. Data "7"
  9. Parity "E"
  10. Stop "1"
  11.  
  12. if csdial = 0
  13.     goto compu:
  14. else if csdial = 1
  15.     goto tele:
  16. else if csdial = 2
  17.     goto tym:
  18.  
  19. compu:
  20. echo "At 7-E-1"
  21. dial compunet
  22. wait 2
  23. out "\r"
  24. in "Name:" 15
  25. out "CIS\r"
  26. goto finish:
  27.  
  28. tele:
  29. echo "Via Telenet, At 7-E-1"
  30. dial telenet
  31. wait 1
  32. if baud = 300
  33.     out  "\r"
  34. else if baud = 1200
  35.     out  "\r"
  36. else
  37.     out  "@"
  38. wait 1
  39. out  "\r"
  40. in   "TERMINAL=" 10
  41. out  "\r"
  42. in   "@" 10
  43. out  "C 202202\r"
  44. goto finish:
  45.  
  46. tym:
  47. echo "Via Tymnet, 7-E-1"
  48. dial tymnet
  49. wait 2
  50. out  "A"
  51. in   "in" 15
  52. out  "CPS"
  53. out  "\r"
  54. goto finish:
  55.  
  56. finish:
  57. in   "ID:" 15
  58. out  Cacct
  59. out  "\r"
  60. in   "word:" 15
  61. out  Cpass
  62. out  "\r"
  63. end
  64.